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A collection of programs tries to recognize , each one more 
successfully than its predecessor, 3-dlmensIonal parallelepipeds 
(solids limited by 6 planes, parallel two-by-two), using as data 
2 -dimensional idealized projections* 

Special attention is given to the last of those programs; the 
method used is discussed in some detail and, in the light of its 
success and failures, a more general one is proposed. 
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FiS. 1. The machine has to determine how nany cubes there ar* 
ana wtere are they. 
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Introductign . We would like the computer to solve the following problem: 

Here is a figure -a picture-. 

What do you see? I am in particular Interested in 
tables, books, and boxes which have In one side 
written the sign "DANGER", 

Tell me where they arc. 

The programs described here solve the following problem: 

A picture has been taken in a factory of parallelepipeds 
(hereafter called sloppily "cubes")* All of them are 
black, and the only way to differentiate theta is 
because their edges are white and bright- They are 
also small, so they do not show perspective. The 
picture looks like fig- 1, 

Noise is not present —all the edges are sharp — , 
but an extraneous object, which human beings recognize 
as a 'pyramid', is present, and makes the problem 
harder for more interesting). 

Problem: tell me how many cubes we have 

here and which they are (fig- 1). 



A good answer would be 
CUBE 1 IS G H 
CUBE 2 IS DVTSK 
CUBE 3 IS ACBED 
CUBE 4 IS (MAYBE) X Y W 
CUBE 5 IS N M Q P. 



something like; 



A wrong answer would be 



CUBE 1 IS G H 

CUBE 2 IS A tf Y X 

CUBE 3 IS ERF 

CUBE 4 IS U V T S Q 

CUBE 5 IS e K B S 



An answer is considered bad when it misses some cube, or if it 
confuses them- On the other hand, ambiguous cubes or partially-identified 
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ones should be reported as such. The program should also give the 
position of such cubes* to the extent such information is available. 

Input to the program 

Eventually the program will read its data directly from the screen* 
Right now* the picture is transformed (by hand) to a list of corners and 
points of intersection (real or virtual), and their coordinates in the 
picture*. together with its nearest adjacent points* William H. Henneman ** 
and Bill Mann are working on a program which will produce this list, 
reading the figure from the PDP-6 scope or vidisector, so as to eliminate 
this manual (and tedious) step* 

For example, the input associated with fig. 2 is 
(A (B D iB (A C C) C (B D) D (G E C) E (F D> F (A E G) G (G D B) ) 
1 2] H2, 1] H* t 1] S«, 2] Cf 3> 3] Qi, 3] 42, 21 

F E 



i 




Fig. 2. 
A cube showing its vertices. 

GORDO (name given to fig. 3) is described by the following list: 



* that is, two-dimensional 
** and Elaine Gord 
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(A 1.0 4.0 (B P) B 1.0 6.0 (A Q C) C 5.4444444 7.77777778 

<B D S) 

D 5.0 8.0 (E C) E 6.0 10.0 (D X F) F 8.0 11.0 (E G) 
G 14.0 8.0 (X H F) H 13.0 6.0 (I G) J 11.0 5.0 (X H J) 
J 9.0 6.0 (I T U W K) K 9.0 4.0 (J L) L 7.0 1.0 (K W M) 
M 5.0 1.0 (8 L) N 5.0 3.0 (OHM) 5.7272727 4.0909091 (V S P) 
P 3.0 3.0 (A Q 0) Q 3.0 5.0 (B P 8) R 8.0 7.0 (Q S T) 
S 6.0 8.0 (C R) T 8.0 6.5 (R U J) IT 8.0 6.0 (T V J) V 7.0 6.0 CO 0) 
H 7.0 3.0 (H J L) X 12.0 7.0 (I G E) 

The numbers are stored under the property list of each vertex. 
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Fig. 3. GORDO 
To its right is ics description list, the input to the program. 
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Format of the answer. We use the CONVERT processor and Apply the 
function cubs (in the file 'CUBE LISP') to the picture GORDO (in file 
'gordo*). Here is the operation in CTSS. 

load ((a cube gordo)) 
(CERO UNDECLARED) 
(CERO UNDECLARED) 
NIL 

e (cubs gordo) 
(THERE ARE AT LEAST 3 OR 3 CUBES) 

(CUBE 1 IS (K (W M) W (N J L> L (M K W)) ) 

(CUBE 2 IS (I (J H X) G (F X H) X (E G I) E (X F D)) ) 

(CUBE 3 IS (P (A Q> R <S Q T> Q <B R P> B (Q C A)) ) 

THE PROGRAMS. 

They are written in CONVERT, a pattern-driven symbolic transformation 

language HI, and we will discuss hero the following: 

CUBES2 LISP 000 Original, uses continuity, 

CUBS LISP 000 Partitions the set into disjoint classes. 

CUBA LISP 000 Final version; uses the unit distance notion 

CUBE LISP 000 Breaks — /~ into — / £- (not connected). 

The last one is the one currently in use, but it is interesting to talk 
about all of them. 

CUBES2 LISP. Use of neighborhood . 

The Idea la to find a corner; if found, to find a "Square" 
(parallelogram); if found, to find the cube. 
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> CUBE FOUND 




CUBE BOUND 



FAILURE to find Cube 



Fig, 4- Flow of control of CUBES2- 
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The program is best explained in the chart of Fig* 4, If a 
corner ( \ ) is foucd, we look for a parallelogram ( \"/* ) which has 
that corner (we use here the information about which points are joined to 
which); as usual, solid arrows in the flow chart Indicate the direction 
of success; broken ones* the direction of failure. 

I an using the following (opposite to the nornal) convention in 
the tree structure: if I fail completely in b. . ,, I go down one branch 
and try to match b. .. For example, 
if I fail to recognize a \J>* » 
I go down and try to find a <*; . i c^ Q i»J+l 




When a cube is fouad, it is 
completed: that is* the program now 
tries to "£111 It" and to recognize all the 

vertices (points) belonging to It. Then, it reports this cube, anc 
it from the picture lit deletes all its lines, but only vertices tbat it 
Is sure are not shared by other cubes) and tries again with the regaining part 
of the picture. 

For example, in GORDO (fitt- 3). CUBES2 proceeds in this way: 



\ 
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CUBEFOUHD 



■> F1U* CUJE 



e 



/ 



it trie* again; It find* all the 3 cubes* 
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COMMON 
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10 12 lu i$ 



Fig. 5, COMMON 
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Hhatto erase and what to leave 

Once all the points of a cube are found, we have to delete it 
from the picture, in order to process the remainder. Or, If you do not 
want to delete points, you still have to mark them as "already processed". 
This process is explained with COMMON, the example In fig. 5, 

Once the cube KJIWUVFGHis found, we delete these points 
from the graph. The point G, for example, is safely deleted, since its 
neighbors, F, H and W also belong to the encountered cube. But F, for 
example, is still not deleted, since It has as neighbors points outside 
(not belonging to) the actual cube. Therefore, one pass through the 
graph eliminates all the lines arriving at points in the cube; for example, 
F* (E* C* K) is transformed to F* (E* C*) , since K was in the cube. In 
this way we delete the line F* - K, if wc also make the transformation 
from K (U J F*) to K (U J). 

Another pass looks for points of the form W ( ), that is, points 
"isolated" (not connected to anything else), and deletes them. 

The first pass is done with the CONVERT rule 
I (XXX (YYY U ZZZ) WW) (XXX (*REPT* <(YYY ZZZ) WWW))) ] 
where we define U as "member of CUBEJUSTFOUND" . 

The second pass — deletion of isolated points — is done with 
[ (XXX X ( ) YYY) (XXX (*REPT* (YYY))) ]. 

In this way points shared by several cubes (like X) are preserved. 
But not the lines; for exanple, the line K - U is erased (fig. 6), because 
it belonged to the cube KJIVUVFG, even if it also belongs to the 
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cube HNPOEFVI. 

In general, there is no way to predict such an event, since 
the second cube has not yet been found, and therefore there Is no way to 
tell what Its parts are. We will discuss this point later. 

In general, this Is not a serious defect, but see the example 
TRICKY, fig. 9. 




Fig. 6. COMMON after erasing cube K J I W U V F G. 



Shortcomings of CUBES2. 

The scheme Just presented gives an idea of the power or weakness of CURES2* 
It is able to find connected cubes; for exaaple, it solves GORDO (Fig. 3) 
and COMMON (Fig. 6), but ic fails to 
find A B C D in the figure at the right 
because it is formed of two disconnected 
parts (disconnected in the sense that, in 
order to go from one part A D to the other 
B C, we have to cross other cubes) . 




\ 



(^ 
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CUBS LI SP^. Classification of the corners . 

We want to be able to recognise "disconnected" cubes, and the 
way CUBES2 (fig. A) works does not allow us to do that. Roughly speaking, 
the problem is this: in some way I manage to know that A Q C 



L 



looks like it is going to be a cube (see also fig* 7), so I 

would like to look for a corner of the form \y^ \$ 

In the direction Q C. That corner happens to be U V T V -£ 

at the bottom, but in order to find it I have to continue the line Q c 

for a while, and stop after finding W T, which is the continuation. 




HIDDEN 



Pig. 7. The cubes A Q V U T and A* H are disconnected. 



i;: 



We could use the jcheme of crying to extend all lines that seem to be 
stopped — like QC, TW — r making the picture somewhat transparent. Also, 
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wlien looking for corner T, ve could extend slowly the line Q C, and 
every 2 millimeters or so ask: Have I hit a point yet? 

Instead of that, we use the opposite approach: look for the 
points (corners) which exist, and see which of them may be continuations 
of Q C, But it would be better not to look at all of them, but Just to 
the most promising ones. That is what CUBS does. 

The vertices may be CORNEKS, Y's, T's or ANY's. 

The program classifies the vertices of the picture into 
several categories: 

CORNERS: With this name ve denote vertices at which two lines arrive, 
for example U, A, I, R*, etc. in HIDDEN (fig. 7). 

Y's: Three lines meeting In a point, no two of which are parallel 
(colinear). 2, T, N*. Q, 

T's: Three lines meeting at a point, two of them collinear; B*» W, 
K*, L*, M*. 

ANT's: Vertices having more than 3 lines. 

What the program CUBS does is divides the vertices into CORNERS, 
Y's, T's and ANY's. The Y f s are also classified into classes, according 
to the slope of its sides. 

After this, all the Y*s of a particular cube can be found in a 
given class; if it happens chat there are no parallel cubes, like in 
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STICKS (fig- 8), then you simply print che classes, because each class 
contains exactly one cube* 

That is not the complete solution. There is more to be said, 
of course. When a single class contains just one vertex, such as G or M* 
(STICKS, fig. 8), it may or may not be part of a cube. CUBS makes further 
analysis and depending upon the kind of vertices attached to the lines 
forming that Y, an acceptance or rejection is made. For information 
purposes, a message "FALSE CUBE FOUND" is Issued. 

For example, analyzing the points attached to H, XM and F, the 
"Y" G is accepted as a cube; analyzing the points N*> T* and Z*, che 
point M* is rejected, that is to say, 



not part of a cube. 




N* is 
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This is the solution for STICKS, as the program CUBS does it: 

(CORKERS ™ ZM (QM Q) RM (M N) LM (KM MM) IM (W JM) I* (H* 
J*) F* (E* G*) D* (C* E*) B* (C* A*) Y (X YM) U (T V) K (J 
L) H (G I) F (G E) D (C E) A (B J*>> 

(TES - A/ (H* DM G*) YM (GM 2 Y) XM (P R* G) WM (C B VM) UM 
(Q* E VM) TM (SM I 0) MM (LM GM V*) JM (KM IM NM) FM (Z EM 
Y*) EM (W* FM X*) BM (AM CM DM) AM (Z* BM E*) Z* (K* AM H*) 
Y* (FM X* A*) X* (EM W* Y*) W* (EM X* V*) V* (S* MM V*) S* 
(R* T* V*) R* (Q* S* XM) Q* (UM P* R*) P* (N* T* Q*) K* (L* 
Z* J*) J* (K* I* A) A* (2 Y* B*> Z (YM A* FM) W (IM V X) Q 
(ZM P R) P (Q XM 0) <N TM P) H (RM QM 0) M (RM OM L) I (H 
J TM) E (F D UM) C (D B WM)) 

(FALSE CUBE < 0.30000002E1 0.5E0 -0.0 N* (VM P* M*))) 

(FALSE CUBE ( 0.2B1 0.0 -0.33333333 M* (T* L* N*))) 

(CUBE I IS (U* <T* L* C*) L* (U* M* K*) C* (B* U* D*))) 

(CUBE 2 IS (KM <JM HM LM) IM (KM X GM) GM (MM HM YM) X (V Y 
BM))) 

(CUBE 3 IS (NM (T V JM) H* (A/ Z* I*) V (U NM W) T (S Wt U))) 

(FALSE CUBE < 0.0 -0.1E1 -0.2E1 S (T OM R))) 

(CUBE 4 IS <QM (N PM ZM) PM (OM QM R) OM (M PM S) R (S PM Q))) 

(CUBE 5 IS <VM (WM N* UM) SM (J L TO) L (SM K H) J (I SM K))) 

(CUBE 6 IS (G F H XM)) 

(CUBE 7 IS (CM (BM DM E*) G* (DM F* A/) B *A WH C))) 

(ANYS * DM (BM CM A/ G*> T* (S* U* M* K*) E* (AM D* CM F*)) 

We print, as additional information, the CORNERS and the T's, Note that 
only a small part of each cube is printed; for example, of the long 
horizontal cube, only vertices G, F, H and XM are printed. It is not 
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difficult to "fill 11 the cube, as CUBES2 docs, but CUBS does not do chat, 
(if for no other reason, because we already know how to do it, so it is 
just a matter of adding that part of the program). 

Also, CUBS does not use any information about CORNERS; again, in 
more complicated cases we need it, and a complete program should have it. 

Shortcomings of CURS. 

E chink the most serious one is that It is unable to make 
recognition among parallel cubes, for example cubes A Q U T and G* F* J* 11* 
in "HIDDEN" (fig. 7) are confused and reported as just one, since chey 
lie in the same class. A better (or worse) example is COMMON (fig. 5), 
where all che four cubes are parallel, and the program thinks there is just 
one ? Also, the program does not check for length of edges. 

Let us not got angry at CUBS* It is obvious that the program is 
incomplete, and it is also obvious what should be done. 

The main good idea in CUBS is that, by dividing the cubes into 
classes, we transform the problem of finding all the cubes, into the 
problem of finding the cubes in a given class, in which all of them are 
parallel. This approach also solves the disconnectivity problen. 

Discussion of the prograra CUBS 

I want ac this point to discuss che program in considerable detail, 
and to see how it achieves its goals. If the reader does not want to 
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follow me, he is welcome to skip to page 24, where we calk about CUBA and 
CUBE, the actual (and more complicated) programs In use. 

The input . [p this page we present a list corresponding co figure 

STICKS in page 15, This list, without the numbers, Is used as 
argument E of the function CUBS, [as a detail, in the figure 
appear points such as A— , B- f etc., which are named AM, BM, etc, 
in the list]. Actually it is convenient to have this list In a 
separate file because often we want to make additions or 
modifications. 



CSET (STICKS (A 3. 2, (8 J*) B 3. 4. (A UM C) 

C 3.3749999 4,75 (D B VS) D 3. 5. (C E) E 4,3333333 9,(F D UM) 

F 1. 9, (G E) G 1. 10, (F H XM) H 2. 11. <G I) 

1 5, 11. (H J TM) J 7. 17, (I SM K) K 0. 18. <J L) 

L 12. 16. (SM K M) M 11.5 14.5 (RM OM L)K 11.25 13.75 (RM QM 0) 
13,333333 11. (N TO P) P 16- 11- (Q XM 0) Q 14.666666 
13.6666666 (ZM PR) R 15. 14. (S PM Q) S 14. 15. (T OM R) 
T 13. 17. (S NM U) U 14. 19, (T V) V 17. 19. (U NM W) 
W 19.5 14. (IM V X) X 21. 14, (W Y HM) Y 21.2 13. (X YM) 

2 21. 11. (YM A* TO) A* 30. 11. (2 Y* B*) B* 33. 12. (C* A*) 

C* 36. 11. (B* U* D*) D* 35- 9. <C* B*) E* 26. 6. (AM D* CM F*) 
P* 26. 4, (E* G*) G* 25- 2, (DM F* A/) H* 24. 1, (A/ 2* I*) 
1* 21, 1. (H* J*> J* 20.5 2. (K* 1* A) K* 19.571428 3.8571429 
(L* Z* J*) L* 17. 3. (U* M* K*) M* 14. 4. (T* L* N*> 
N* 8. 4. (VM P* M*) P* 8-666666666 6. (N* T* Q*) Q* 9.666666666 

9. (UM P* R*) R* 17. 9. (Q* S* XM) S* 18. 7* (R* T* V*) 
T* 15. 6. (S* U* M* N*) U* 18. 5, (T* L* C*) V* 20.571428 
7.9571429 (S* MM W*) W* 22.285714 8.4285717 (EM X* V*> 
X* 24, 0, (EM W* Y*) Y* 27, 10, (FM X* A*) Z* 22.142857 
4.7142858 (K* AM H*) AM 23-857143 5.2857141 (2* BM E*) BM 24.5 4. 
(AM CM DM) CM 25. 4. (BM DM E*) DM 25. 3. (BM CM A/ G*) EM 22. 9. 
(tf* FM X*) FM 21.5 10. (Z EM Y*) GM 20.2 11. (MM HM YM) 
HM 20. 12. (KM X GM) IM 19. 14, (W JM ) JM 18.25 12.5 (KM IM NM) 
KM 18, 12. (JM HM Uf) Ui 18.2 11. (KM MM) MM 19. 11. (LM CM V*) 
NM LC- L&- (T V JM) 0M 12. 15. (M PM S) PM 13. 14, (OM QM R) 
QM 12. 13. (N PM ZM) RM 11. 14. (M N) SM 10. 15, (J L TM) TH 8.666666666 

11. (SM I 0) UM 8. 0- (Q* E VM) VM 6. 3. <WM N* UM) 
WM 4.5 4. (C B VM) XM 16.5 10. (P R* G> YM 20.6 11.8 (GM Z Y) ZM 14. 13. 

(QM Q) 
A/ 24.5 2. (H* DM G*) 
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hi 24.5 2. <H* DM G*) 

(LAMBDA (X) (CSET X (LLENA STICKS))) (STICKS) 

STOP )))>>»>> » ) ) ) ) ) ) )))))) ) > » 



This is how the figure STICKS looks like, in list format. 
At che end we call to LLENA, a LISP function which simply takes the 
coordinates out of the list and puts them in the property list of the 
corresponding atom, under XCOR and YCOR, and then gives this expression 
to the CONVERT program. 

The program . The CUBS program is rather short. We start by defining 

CUBS, a LISP function which calls CONVERT- It has one argument, 

the (list representing the) picture we want to analyze. The 

program appears in the next page. 

The first argument of CONVERT is the dictionary of declared 

variables. Let us analyze it: 

GR PAV GRR CR will match with anything that GRR matches, and 

will retain that value* 

GRR STG X GRR will match with a number if it is strictly greater 

than (the number matched by) X, 



■::-:• 
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(CUBS (LAMBDA (E) (CONVERT (QUOTE( 

GR PAV GRK GRR STG X (CCC) CRT 1 

ORD REFT ( ((XXX X YYY GR WiW) (-REPT- (XXX GR YYY X ifiltf)) )) 



X* PAT 


(-XEC= EQUAL1 == X) 


Y* PAT 


(=XEC= EQUAL1 « Y) 


Z* PAT 


(-XEC- EQUAL1 == Z) 


Zl SKEL (=PRNT= =BLNK») HUM SKEL 


(=SETQ= XI (=INCR» XI)) 


TC REPT ( ((X) (=EXEC- TAN X XI) )) 




YZW PAT (-OR- YZW) 




)) (QUOTE( Y X Z (XXX) (YYY) (WWW) W )) 


E (QU0TE( Cl( 



( « (-PROG- (XI SAME (ABY)(YS)(CRS)(TS)Y1> (-SETQ- SAME =SAME=) 

1(=VHEN» SAME(X Y XXX)((=SETQ= XI X) (-SETQ- Yl Y)(-SETQ- SAME(XXX))) 

(-GOTO- 2)) 
(-REPT- Yl C2 ( 

( (-- --) (-SETQ- (CRS) (XI Yl CRS)) ) 

( (X Y Z) (-REPT- ( (YS) <(TG X)<TG Y) {TG 2)) ) C3 ( 

< -PRI- (C3 XI -BLNK-)) 

( (mm (»• X — X* — )) (-SETQ- (TS) (XI Yl TS)) ) 
( (X (Y Z W>) (-HEXT- ((ORD Y Z V)) X>) ) 

< ((X Y Z)(» (-SETQ- (YS) <(X Y Z XI Yl>)> ) 

( ((X Y 2) (XXX(X* Y* 2* YYY)WWW)) (=SETQ=(YS)(XXX(X Y 2 XI Yl 

YYY) WWW)) ) 

< ((XXX)--) (-SETQ- (YS) ((XXX XI Yl) YS))) ))) 
( ™ (=SETQ- (ANY) (XI Yl ANY))) )) 

(-GOTO- 1) 2 Zl (-SETQ- XI 0) 

(-PRNT- (CORNERS -- CRS)) Zl (-PRST-(TES - TS)) 

3 Zl 

(-C0KD- (YS) (X XXX) («G0T0= (»QU0T= 3) (=SETQ= (YS) (XXX)) 
(-PRST- (-REPT- (X (CRS TS)) C4 ( 

( ((-b » b y Z W XXX)«) (CUBE SUM IS (Y Z V XXX)) ) 
( ({-- — " X <Y Z W)) (— YZW — = YZW ™ YZW *-■)) 

(CUBE SUM IS (X Y Z W)) ) 
( (X ») (FALSE CUBE X)) ) )) )) 

(-RETN- (ANYS » ANY)) )) ) )) ))) 



The CUBS program, 
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(CCC) CHT 1 CCC will match any fragment with length 1 (or longer), 

and It will remember this number; for example, 
(A CCC B CCC D) requires that between A and B and 
between B and D there must be two fragments of equal 
length ( >_ 1} . 

ORD REPT ( ((XXX X YYY GR WWW) (-REPT- (XXX GR YYY X WWW)) )) 

The value of (ORD ZZZ) Is a list which contains the 
same elements of ZZZ, but in increasing order — we 
suppose ZZZ formed by numbers — - The unique rule used 
says: if you see X and in some place co its right 
some other number bigger than X, (XXX X YYY GR Wk% 
interchange and then repeat the process: (-REFT- (XXX 
GR YYY X WWW}}. 

X* PAT (-XEC- EQUALl -- X) X* will match a number N for which 

(BQUAL1 N X) is true, X* is approximately equal to 
X, Note that -XEC- allows us to call LISP predicates, 
as in this case; *• is replaced by the expression 
being matched. Y* and Z* are appro*, equal to Y and 
Z, respectively - 

Zl SKEL (-PRNT- -BLNK-) Its value Is a BLANK, which is also printed - 
This is a way to print a line of blanks, in the 
console of the time sharing system. 

TG REFT ( ((X) (-EXEC- TAN X XI) )) TG applies the LISP function 

TAN to Its argument and XI. 

YZW PAT (=0R- Y Z W) YZW will match with any expression watching 

either the pattern Y or the pattern Z or the pattern W. 



The second argument declares X, Y, Z and W ae free variables, and XXX, 
YYY and WW as free fragment variables, that is to say, in the mode UAR. 

The third argument is E, the picture wc arc going to examine. 

The last argument of GONVERT is a list of collections of rules; in this 
case there is Just one, called CI. 

CI has also one rule, vhich says [ -- (-PROG» ( )...)] 

"If you see an expression (E) matching = , replace the skeleton 
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(-PR0O ...)". Since ™ matches anything, no matter what Is the 
expression E, we enter the -PROG-. The -PROG-ram feature for COKVERT 
is described in A.I. Heao 95. 

We see that (Xl SAME (ANY) (YS)(CRS) (TS)Y1) declares to XI, Yl 
and SAKE as being 'PROG' variables, and to ANY, YS, CTS and TS as being 
»PROG» fragment variables. 

(-SETQ- SAME -SAME-) We assign to SAME the value of -SAME-, that is, the 
expression which we are trying to analyze. 

The statement No. 1 of the -PROG- says: when SAME is decomposable 
in 1 st , 2 nd and remainder, or (X Y XXX), store the first expression in XI, 
the second in Yl and the reaainder in SAME. So, Xl will contain a vertex, 
and Yl is the list of the points connected to it. The only case when 
SAME does not match (X Y XXX) is when it is empty, in which case we go to 2. 

Now we apply co Yl the rule-set C2, and they go to 1, to do the 
same wifh other vertices. 

[ (m* .*) (-SETQ- (CRS) (XI Yl CRS)) ] Corners are simply added to CRS. 

[ (X Y Z) (-REPT- ( (YS) ((TG X) (TG Y) (TG 2)) ) C3 ... ) ] 

If we see a triplet, ve compute the slope of its sides, and we 
form a list of (YS) and them, and apply to such an entity the rule-set C3. 

The first rule of C3 prints C3, XI and a blank. 

The second rule of C3 looks to see if two of the slopes are equal; 
this being the case, ve are dealing with a T, so it is added to (TS) . 

[<X (Y 2 W>) (-NEXT- ((ORD VZH) X)) J Otherwise, we order our 
slopes, interchange (YS) to the right and go on to the next rule. 
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I ((X Y Z) ()) (=SETQ« <YS) <(X Y Z XI Yi>)> ] If (YS) is empty, 
we initialize it in the way described, 

< ((X Y Z) (XXX(X* Y* 2* YYYjWWW)) (-SETQ-<YS)(XXX(X Y Z XI Yl 

YYY) WWW)) ) 

says: if there exists in (YS) a class with the same slopes as 

those matched in (X Y 2), we put the present vertex, XI Yl, into 
that class. 

< «XXX)«) (-SEK^ (YS) ((XXX XI Yl) YS))) 
Otherwise, we create a new class- That finishes C3. 

The last rule of C2 says [ — (-SETQ- (ANY) (XI Yl ANY)) ]: otherwise 
—that is, if Yl is not a triplet— append it to ANY. Then> go to 1. 

When we finish this preprocessing of the picture, CRS contains 
all the corners, TS all the T's, etc. We print them. (S*c example of 
output, page 16). In particular, (YS) looks like 

((2 0-2 H*<I* A/ Z*) T(U KM S) .,.) (2 1/3 - 1/3 U*(L* C* T*) ...).. .) i 
divided into classes with the three nutnbers — slopes — at the front* 

Now we execute statement 3, other loop, it starts by printing a 
blank, Z~ . 

3 21 

(-C0ND- <YS) (X XXX) (-GOTO- (-QU0T- 3) (-SETQ- (YS) (XXX)) 
(-PRNT- (-REPT- (X (CRS TS)) C4 ( 

[ ((» » « y Z W XXX)«) (CUBE KUM IS (Y Z W XXX)) J 
[ <<" — — X <Y Z W» (-— YZK — YZH — YZW =«)) 

(CUBE NUM IS (X Y Z W)) ] 
t (X — ) (FALSE CUBE X) ] ) )) )) 

This conditional says: if (YS) has one element X and a remainder 
XXX, go to 3, but first store (XXX) in (YS), and print some other skeletons. 
When (YS) is ( ) , this (=C0ND» ...) falls, in which case we execute the 
next statement: (-RETN- (ANYS » ANY)), finishing the computations- 
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The set CA applies to (X (CRS TS)), that Is, to a list formed by 
the class X of vertices and a list consisting of the corners plus 
the T f s, the following rules; 

[ ((— — " Y Z W XXX)=) (CUBE NUM IS <Y 2 W XXX)) J 

If the class consists of at least 3 elements, besides its 
3 numbers (matched by — ~ «) , that is. If the class contains 
more than 1 vertex, we print that class as a cube* No attempt 
is made to differentiate between parallel cubes* which fall into 
the same class. 

[({— — — X (Y Z W)) (— YZW --- YZW -— YZW ---)) 
(CUBE NUM IS (X Y Z W)) 1 

If the class consists of only one vertex* X <Y Z W), wc examine 
more closely the points Y, Z and tf, to see if they are either 
corners or T*s; if this is the case (as it Is G <F H XM) in 
STICKS, fig, 13) we accept X as a cube* otherwise wc reject it; 

I (X --) (FALSE CUBE X) ] 

The program uses some simple LISP functions: 

(TAN (LAMBDA (A B) (COM) 

((EQUAL (GET B (QUOTE XCOR)) (GET A (QUOTE XCOR))) 0.1E7) 
(T (QUOTIENT (DIFFERENCE (GET B (QUOTE YCOR)) (GET A (QUOTE YCOR))) 
(DIFFERENCE (GET B (QUOTE XCOR)) (GET A (QUOTE XCOR))) 
») )) 

( EQUAL 1 (LAMBDA (A B)(LESSP (ABSVAL (DIFFERENCE A B)) CERO) )) 

(ABSVAL (LAMBDA (A) (COSD ((MISUSP A) (HISUS A)) (T A) ))) . 
CSET (CERO 0*003) 



CUBA LISP- Differentiating among parallel cubes. 

The program just discussed takes a figure and separates the 
cubes into classes, each one of them containing parallel cubes. For 
example, in HIDDEM (fig. 7, page 12) the cubes A Q V U T and E* J* D* 
J K* are parallel. We would like to differentiate among them. Here 
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ve use the collineartty among two vertices; for 
example, Q and T are collineal — figure at the 
right--, but Q and D* are not, so Q and D* can not 
form a cube. 

Also, we do not want to compare Q with 
all the vertices of Its same class in order to 
select the possible ones; It seems that a further 
classification of vertices of the same class is desirable, 
Collinearity is not sufficient . For example, vertices A and B —see 
figure below — are collineal, and still do not form a cube; therefore, 
we will select all the vertices collineal to A In the direction A T 
and (if there are some) select the appropriate one. 





As the last figure shows, we have to take into account more information 
about the lines. In order to know that cube A T ends before (to the left 
of] vertex &, As an alternative, we could say: "A T does not give 
enough information about the remainder of this cube, so we may as well 
forget about A T and try another line, with the expectation that we will 
be luckier this time". 
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Numfrering the Vs* tnit distance vertices, 



lake a cube, pick any vertex end establish the three directions 

of its lines, as done in tie 

figure. Sow, examine for each 

vertex, the lines which depart 

fron it. For vertex A, all its 

lines depart it the positive 

directions \ , — * an<S A ; 

therefore, is (+ + +) or (0 0) or ) , For vertex 

line B G is \ (+) 
line BC is — > <+) 





thoco 3 

directions 

were 

arb 1 1 ra r i ly 

chosen to be 

(+>, (+), «■ 



line B A is | (-) ; 
therefore, vertex B l» (+ +■ -) or (0 1) or 1, tfhen vo finish thio 
process, our cube nov leeks like this: 

This numbering scheme is independent 
of the starting vertex (0 0) an.". 
of the directions which are considered 
positive i 

Connected vertices are unit-distant, 
that is, their binary words differ in 




bTooTi 



c<oii) 



exactly one bit. Vertices which are 2 units apart lie on the diagonal 
Of the faced (AE* AG, Dll , etc.) *inj vertices lying in opposite extcetaea 
of the diagonals of the cube are 3 units apart, for example F (1 0) and 
C (0 1 1). 






m i, 





Pre-processing. The pre-processing done In CUBA Is more complicated 
than the one done In CUBS* 

Vertices are divided into CORNERS, T's, Y's and ANY'* (as before); 

1. CORNERS are divided according to the slope of the sides, 

2. T's are divided according to the slope of the top (A B) 
and the slope of the tail (CD). r 



7 



3* Y's are divided into classes, according to slope. 

In each class, vertices are divided according to the 
unit distance concept. If certain vertex happens to 
be the first of a given class, the nunber (0 0) is 
iigned to it. 



Localization of the Cubes. A second part of CUBA applies to each class 

of Y*s the following process: 

1. A vertex is selected and the program tries to attach to it a 
cube. If possible; therefore, its unit-distance vertices are 
looked for flf the_yertex in question has number (x, x, Xg)> 
only sub-classes ix :< - x*), (xi :<-, >:.) and (Xi x-, x,) are searched]; 
a vertex has to pass the test for collinearity and, if several are 
found, the closest is chosen. It turned out that these 3 tests 
are still not sufficient; for example, B is 

(1) unit-distant from A 

(2) colineal 

(3) thr closest 

and still A - B is not (part of) a cube. In 
relation with this, see also TOWER (fig. 11). 
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2. Ve apply to the vertices found in (1) the same process (1), up to 
a certain depth. 

3. The cube formed in this way is accepted if it has 2 or more vertices; 
if it has only one, as N* <K* L* M*) in HIDDEN, fig. 7, page 11, we 
check the extreme points [K*, L* and M* in the example], as explained in 
CUBS. 

A fancier program should say, after finding a cube such as tt*: 
"I am not sure it is really a cube, but it looks like one". This comment 
can be inserted in this part of the program. 

4* Accepted cubes are reported and their vertices erased from the 
subclasses wherp they were found, and the whole process is applied again 
Co the next vertex of the subclt 




5. When a subclass (or a class) is empty, the next one Is searched. 

CUBE LISP. 

Is the progran currently in use; in addition to what CUBA does, It 
also breaks vertices of the type A in two Y's: -^ and 

Use of CORNERS . 

We still do not use information about the corners; the program 
reports just the Y's of a cube, and does not try to complete it, as CUBES2 
does- To complete a cube once is found is not difficult, if we avoid 
ambiguous or undetermined cases, and for that matter we could use those 
rules and skeletons which CUBE52 uses for this purpose. 

Use of LIKES. 

Ho Information is used actually about individual lines. A more 
general program should also classify lines according to its slopes; this 
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lnfonnatlon would allow us to complete the cube GFHH (STICKS, fig. 8) 
with its otherwise totally disconnected part Z A* EH X*. 

Recognition of Cubes in a Picture wh ich also contains other objects. 

In the presence of non-cubic objects t an effort is made by the 

program to see cubes in them; If none is found, these objects are simply 

Ignored. A good example is HIDDEN (fig. 7, page 11)> where the truncated 

pyramid is ignored, but only after several "false cubes" found in It. 

The output is the following: 

(FALSE CUBE (Z* (Q* Y* S*))> 

(FALSE CUBE (Y* (V* Z* X*») 

(FALSE CUBE (X* <W* 0* Y*))) 

SOLUTION TO H I D D E N 
(FALSE CUBE (S* (T* Z* S*>)) 

(FALSE CUBE (Q* (Z* P* R*))> 

(CUBE 1 IS <N* K* L* M*)> 

(FALSE CUBE (X (H Y B)» 

(FALSE CUBE (J (I K H*))) 

(CUBE 2 IS (H* <G* F* J) E* (F* G* C*) F* (E* H* D*) D* (W K F*)) ) 

(CUBE 3 IS {? (A Q R) (Q A N) Q (0 P C) T (U V W)) ) 

(CUBE 4 IS (L <A* B* H) Z (H N A*) H (Z D L) H <B X K*)) ) 

(FALSE CUBE (V* (Y* U* W*))) 

(CUBE 5 IS <Y <D X I*) G (P* I* B) 1* (E G Y) E ( I* 0* S)) > 

(FALSE CUBE (D (Y M S))) 
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If instead of a pyramid wc put a hexagonal prism, A 

it will recognize in it the "cubes" ABCEFG 

and B C D F G HI E 

As you see, CUBE is not very successful in a 
foreign environment, A more general program should be more careful 
about accepting candidates which look good. 




Preliminary guess . After the preprocessing of the figure, the number of 
CORNERS Is computed and divided by 3 (a cube can not have more than 3 
CORNERS). The classes of Y's are also counted. Both number© are inserted 
in a message "there are SI or N2 cubes". 



Soae Examples . We have already shown several figures which the program 
analyzes correctly; they are C0MM0S (fig. 5), GORDO (fig. 6), HIDDEN 
(fig. 7), STICKS (fig. S). Some of them, like HIDDEN ( Pg . 12) are 
somewhat complicated, since they involve parallel cubes, disconnected 
cubes, 1-corner cubes, extraneous objects, etc. 

I would like to present now a couple of examples, TRICKY (fig. 9) 
and WHAT? (fig. 10), where the answer is ambiguous (non~ unique). The 
program does its best, and its answers are acceptable but, in general, 
CUBE is not designed to solve optical illusions. 
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l.oad <<a cube tricky)) 
< CERO UNDECLARED) 
(CERO UNDECLARED) 
NIL 

c (cubs tricky) 



F 
J 
H 
N 


P 
(THERE ARE 2 OR 1 CUBES) 

(CORNERS - ( 0.4E0 0.1E7 I (J H) G (H F)) (-0.5E0 0.4E0 E 
(F D) C (D B)) (-0.5E0 0.1E7 K (J L) A (L B))) 

(TES -) 

(YSS - (-0.5E0 0.4E0 0.1E7 ((0 0) B (M C A)) ((0 1 1) 
(H L D)) ((I 0) P (L H J) N (D F H) M (B D L)) ((1 1) J 
<K I P)> «l 1 0) F (E N G)))) 

(LOOK (0 1 0) B C) 
(LOOK (1 0) B H) 
(LOOK (1 1) M L) 
(LOOK (1 1 0) H D) 
(LOOK (0 1) B A) 

(CUBE 1 IS (M (B D L) B (H C A» ) 
(LOOK (0 1) L) 
(LOOK (1 1 1) H) 
(LOOK (0 1 0) D) 

(FALSE CUBE (0 (H L D)) ) 
(LOOK (1 1 0) P H) 
(LOOK (0 0) P L) 
(LOOK (1 1) P J) 
(LOOK (1 1 1) J I) 
(LOOK (0 1) J K) 

(CUBE 2 IS (J (K I P) P (L H J)) ) 

(LOOK (1 1 0) N F) 

(LOOK (0 1 0) F E) 

(LOOK (1 1 1) F G) 

(LOOK (0 0) N D) 

(LOOK (! I) H H) 

(CUBE 3 IS (F (E N G) N (D F H)) ) 

(AHYS = L (A M P K) H (0 N P I G) D(OHCNE)) 
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Results for TRICKY (fig, 9). CUBE accepts the 3 exterior cubes and re- 
jects (H L D). The program was run in a semi-traced mode, and additional 
information Is displayed. 

1 oad ((a cube what)) 
(CERO UNDECLARED) 
(CERO UNDECLARED) 
NIL 

e (cubs what) 

(THERE ARE AT LEAST 2 OR 1 CUBES) 

(CUBE 1 IS (0 (P Y X) X (Q W 0) Q (X R P)) ) 

(CUBE 2 IS (S (DTR)D(SE C)> ) 

(CUBE 3 IS (Q (B R P) B (Q C A)) ) 

(CUBE 4 IS CM (V L Z) K (J Z L) Z (W K M)) ) 

(CUBE 5 IS (H (G U I) D (T H J)) ) 

(CUBE 6 IS (M (Y N Z) Y (M W) (N Y X)) ) 
(FALSE CUBE (V (J R T))) 
(FALSE CUBE (C (R B D))) 

These are the results for WHAT?. 6 cubes are found; M Y H is 
accepted, but J V R T is not. This is {fig. 10) certainly a possibility; 
otherwise, how does one explain with cubes the presence of lines N and 
KM? 

The next two pages show the exaraple TOWER (fig. 11). All the cubes 
but one are correctly Identified: cubes 0* T and P I arc fconlfused and 
they appear in the answer as only one, namely C* 8* A* I. This is because 
we do not use information about lines; If this were the case, line A B --sec 
figure below-- would tell us not to think of R S as being just one cube, 
but two instead. 

It is not clear, on the other hand, how many cubes we see in figures (A) 
and (B)- 
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(B) 



e (cubs Cower) 



(THERE ARE AT LEAST 3 OR 2 CUBES) 



(CUBE 1 IS (Aw (X I X*) X* (2 A*)) ) 
(CUBE 2 IS (X* (Z U*) U* (H S X*)) ) 
(CUBE 3 IS (V (C T* B) F* (T* C C*) T* (F* V N*) N* (C* R T*)) 

(CUBE 4 IS (N* (C* R P*) A* (X I W*)) ) 
(CUBE 5 IS (F (V H N) N (C* L F)) ) 
(CUBE 6 IS (N (G* L K) K (D* C S)) ) 
(CUBE 7 IS (K (D* C J) J (H* V* K)) ) 
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Fig. 11 TOWER 
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(CUBE 8 IS (U* (H S F) F (Y M U*)) ) 

(FALSE CUBE (K* (D V* A*))) 

(CUBE 9 XS (E (H Q* J*) E* (J* B R) U (B J* Q*) J4 (E* U E)) 

(FALSE CUBE (E (U Q* T))) 

(CUBE 10 IS (W* (D Y* A) I# (A Q D) R* (P* A S*) A (I* R* W*>) 

> 

(FALSE CUBE (P* (R* Q N*))) 
(FALSE CUBE (B (U E* V))) 



Solution to TOWER (fig. 11). 
Vertices such as X (D* K G J) having 4 connected points, two o£ which 
(J and N) are collineal, get decomposed in two y's; k (D* N G) and 
K (B* J G). 

The next pages contain a listing of the program. The CONVERT func- 
tion which recognizee cubes is (CUBS E), and occupies less than 2 pageg. 



(CUBS (LAMBDA (E) (CONVERT (QUOTE ( 

GR PAV GRR GRR STL X (CCC) CUT I 

ORD REPT ( ((XXX (X Y) YYY (GR Z) WWW) (-REPT- (XXX (GR 2)YYY (X Y) 

WHW)) > 
( (PAl) (-PR0G= () (=SETQ= Yl S) F)) ) 
X* PAT (^CEC= EQUALl — X) 

Y* PAT ("XEC- EQUALl -= Y) 

Z* PAT (*«EC= EQUALl -- Z) 
Zl SKEL (=PRNT= -BLNK-) 

(TG) SKEL (=EXEC= TAN Xl) 
YZW PAT (=OR- Y Z W) 
SUM SKEL (=SETQ- X2 (-INCR- X2)) 
SU SKEL (-REPT- (Yl U V) C8 ( 

( ((X XXX) U (Y YYY)) ((*HEN=(=EXEC= PARALELL Xl X U Y 

*T* 1) (*REPT* ((XXX) U (YYY)) )) ) 
(-()))) 
CO BUV (-AND- -ATO- (-XEC- COLINEAL V W ==)) 
(COL) PAT ((*OR* () ( (OR= CO ==) == COL ))) 
LOOK REPT ( 

( (D V W (= (U COL) ---)) 

(-WHEN= ((ORD (ftlTER* J CO ((=EXEC- LEKGH 
J V) J) )) Yl ((X — ) (Y -«)) 

(^JHEN- SAME (XXX (U YYY Y Z UUU) ZZZ) 

(Y Z (*ANUL*(-SETQ- SAME (XXX(U YYY UUU)ZZZ)X» ()) 

( - 0) ) 
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COM REPT { ((1) 0) (-- 1) > 

(PAl) PAT ((*OR* O ((F S) PAl) )) F BUV == S BUV •- 

(MATCH)REPT ( ( (T Y ==(= T =— Y Z — )— ) (2)) 

( == 0) ) 

(SEE) REPT ( ( (T V Y Z ===(T V = Y (=OR- ((-AND- (-XEC- PARALELL 

« V XI Y) U) W) (W U» =-) =«) 
(HfflEN= (=EXEC= PARALELL Y W XI Z) *T* ((U W)) () )) 

( — 0) ) 
POINTS SKEL («ITER= J =SAME= ((TG J) J) } 

)) (QUOTE (Y Z W X H V (XXX)(YYY)(ZZZ)(WWW)(WV)(UUU)T )) E (QUOTE( Cl( 
( — (-PROG- (XI SAME (ANY)X2(YS) (CRS) (TS) Yl> (-SETQ- SAME -SAME=) 
1(=WHEN- SAHE(X Y XXX)((=SETQ= XI X)(=SETQ= Yl Y)(-SETQ=SAHE(XXX))) 

(•GOTO- 2)) 
(=REPT« Yl C2 ( 

( (= — > (=REPT= ( (ORD (*FRAC* POINTS)) CRS ) C6 ( 
( <(X Y) XXX(X* Y* YYY)WWK) 

("SETQ- (CRS) (XXX (X Y XI Yl YYY)WWW)) ) 
( ((X Y)===) (=SETQ- (CRS) ((X Y Xl Yl) CRS)» ))) 
( <«. = n) (-REPT- ( (YS) POINTS ) C3 ( 
( (■*• (XXX (X U) YYY (X* V) ZZZ)) 

(KIONT- (XXX YYY ZZZ TS) C5 ( 

( ((Y W) VW (X Y WW) UUU) (-SETQ- (TS) 

(VW (X Y Xl (UV W) WWW) UOU)) ) 
( ((Y W) UUU) (-SETQ- (TS) ((X Y Xl (UV W)) UUU))) 

>)) 
( (X (Y Z W» (-NEXT- ((ORDY Z W) X)) ) 

( ((X Y Z) (XXX (X* Y* Z* ((-AND-(0 0)W) U V ZZZ> WV)WWU» 

(=SETQ=(YS) (XXX(X Y Z(*REPTft(NU(W V ZZZ)WV)C7))UWU))) 
( ((XXX)=) (-SETQ- (YS) ((XXX((-QUOT=(0 0))X1 Y1»YS))) ))) 
( (-» ■- -- --) (-REPT- POINTS CIO ( 

( (XXX(X Y)YYY(X* Z)ZZ2) (-COOT= (XXX YYY ZZZ) CH ( 
( ((" U)( — V)) (-SETQ= SAME 

(Xl (Y U V) Xl (2 U V) (*FRAG* SAME))) ) ))) ))) 
( -- (-SETQ- (ANY) (Xl Yl ANY))) )) 
(-GOTO= 1) 

2 (^PRNT- (THERE ARE AT LEAST (=WHEN= (CRS)(CCC)(=INCR=(=DIVD= CCC 3))) 

OR (*COND* (YS) (CCC) (CCC)) CUBES)) Zl 

(=SETQ= X2 0) 

3 Zl 

(<OND- (YS) (X XXX) (=COTO- ('WOT- 3) (-SBTQ- (YS) (XXX)) 
(=PROG= (Nl N2 N3 ) (-SETQ- SAME X) 

4 (=REPT= SAME CA ( 

( (X Y Z) (=RETN- END) ) 

( (X Y Z(U)WV) (=COT0-(-QU0T- 4) (^ETQ- SAME(X Y 2 VW)))) 
( (XXX ((X Y Z) V (T U W) UUU) VW) 
(=NEXT= (=PROG= ((N4)) 

(=SETQ- SAME (XXX ( ((-SETQ- Nl X)(-SETQ- N2 Y) 

(-SETQ- N3 Z)) UUU) VW)) 
(«SETQ= (N4) (V (T U W))) 

(=COND= (LOOK (Nl (COM N2) N3)V U SAME)(X(U V W)) 
( (=SETQ= (N4) (X (U V U) N4)) 

(^OND=(LO0K((COH N1)(C0M N2)N3) X U SAME) 
(X (U V W)) 
(=SETQ= (N4) ((*FRAG*(LOOK 



((COM Nl)(COM N2)(COM N3))X U SAME)) X (U V W) N4))) 

(-COND- (LOOK (Nl (COM N2)(COM N3)) X W 
SOB) (X(U V W)> (-SETQ- (N4) ((*CONC* 

(LOOK ((COM HI) (COM N2)(COM K3)) X U SAME) 
(LOOK (Nl N2 (COM S3)) X V SAME)) X (U V W) N4)) ))) 

(=COND= (LOOK ((COM Nl)N2 N3) V T SAME) (X (U V W) 
) (=SETQ=(N4) ((*CONC* 

(LOOK ((COM Kl»2(COM N3)) X W SAME) 
(LOOK ((COM Nl)(COM N2) N3) X V SAME)) X (U V W) N4)) ) 

(KXJND- (LOOK (Nl K2 (COM S3)) V W SAME) 
(X (U V H)) (=SETQ* (N4) ( (*CONC* 

(LOOK (Kl (COM N2) (COM N3)) X V SAME) 

(LOOK ((COM Nl) N2 (COM N3)) X U SAME)) X (U V W) K4)> (N4) ) )) ) 
( (X(Y Z W)) (KWTO- (*}UOT- A) (-PRNT- 

(-REPT" ((ftANUL* ((-SETQ= XI X) (^ETQ= VI (Y Z W)))) 
((TG Y)Y) ((TG Z)Z) ((TG W)W) ) C12 ( 
( ((T Y) (U Z) (V W)) (-NEXT- ( (SEE T V Y W CRS) 
(WATCH T Y TS) (SEE TUYZ CRS) 

(SEE T U Z Y CRS) (SEE U V Z W CRS) 

(WATCH U Z TS) (SEE UVUZ CRS) 

(WATCH V W TS) (SEE T V W Y CRS) 

))) ( (= == =-) (CUBE NUM IS (XI (*FRAGft Yl)) )) 

( — (FALSE CUBE (XI Yl))) )) ))) 
( -COM" THE NEXT RULE SHOULD BE MODIFIED, BECAUSE WE 

DO WANT TO MAKE SOME CHECKING ) 
( = (=GOTO=(-QUOT- 4)(-PHKT=(CUBE NUM IS -SAME- Zl)) )) ))) 

)> 

(=RETN= =BLNK=) )) ) 

C7( 

( (U XXX (U YYY) ZZZ) (XXX (U Xl Yl YYY) ZZZ) ) 

( (nv wv) (v (u xl Yl) vw)) > )) ))) 



LIS? FUNCTIONS USED 



DEFINE (( 
(PARALELL (LAMBDA (A B C D) ((LAMBDA (R S) 
(AND (NOT (MIKUSP (DOTT R S))) 

(LESSP (ABSVAL (CROSS R S)) CERO))) 
(LIST (DIFFERENCE (GET B (QUOTE XCOR)) (GET A (QUOTE XCOR))) 

(DIFFERENCE (GET B (QUOTE YCOR)) (GET A (QUOTE YCOR)) )) 
(LIST (DIFFERENCE (GET D (QUOTE XCOR)) (GET C (QUOTE XCOR))) 

(DIFFERENCE (GET D (QUOTE YCOR)) (GET C (QUOTE YCOR)) )) ))) 

(CROSS (LAMBDA (R S) (DIFFERENCE (TIMES (CAR R) (CADR S)) 

(TIMES (CAR S) (CADR R)) )» 

(DOTT (LAMBDA (R S) (PLUS (TIMES (CAR S) (CAR R)) 

(TIMES (CADR R) (CADR S)) ))) 
(TAN (LAMBDA (A B > (COND 

((EQUAL (GET B (QUOTE XCOR)) (GET A (QUOTE XCOR)) )0.1E7) 
(T (QUOTIENT (DIFFERENCE (GET B (QUOTE YCOR)) (GET A (QUOTE YCOR))) 
(DIFFERENCE (GET B (QUOTE XCOR)) (GET A (QUOTE XCOR))) 
))) )) 

(EQUALl (LAMBDA (A B) (LESSP (ABSVAL (DIFFERENCE A B))CERO ) )) 



)) DEFINE (( 
(LENGH (LAMBDA (A B) 

(EXPT(PLUS(EXPT(DIFFERENCE(GET A (QUOTE XCOR))<GET B(QU0TE XCOR)))2> 
(EXPT(DIFFEREKCE (GET A (QUOTE YCOR)) (GET B (QUOTE YCOR)))2))0.5») 

(COLINEAL (LAMBDA (V W C) (EQUAL1 (LEKGH V C) 
(PLUS (LESGH V W) (LEKGH W C)) ))) 

(ABSVAL (LAMBDA (A) (COKD ((MINUSP A) (MIKUS A)) (T A) ))) 

)) 

CSET (CERO 0,003) COHPILE ((PARALELL CROSS DOT! TAN EQUALL ABSVAL)) 
COMPILE ((COLINEAL LEKGH )) 

EXCISE (T) 
STOP)))))))) ) > ) )) > )) >>>)))))) )») ))) 
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AdJetidun 



POLYBRICK uorks on a scene or picture, and finds parallelepipeds in it; 

thus, (CUBS (QUOTE GORDO)) tc£» p. 6) finds three cubes in figure 'GORDO 1 . 

We would like to be able to specify in some suitable notation, a mode 1 
of the classes of objects we are interested in (nodels will be 'cube 1 , 

'triangular pyramid', 'chair'), and have a pragraa lock for all instanced 
of that model In a given scene or figure. Tuo arguments would have to be 
supplied new to our program: the mocel of the object we are interested in, 
anJ the actnc that wc want to analyse* Programs to- do this arc deocribed in* 

4. Guznan, A. Sccnr Analysis Using tlu» Concept of Model . Report AFCRl-67-0133; 
Conputer Corporation of America, Cambridge, Mass- January 196?. 

5* Guznan, A. A Primitive Recognizer of Figures in a Scene . Memorandum 
HAC-H-342 (AI Memo L19); Project MAC, M. I. 7. January 1967. 

An important restriction here is that partially occluded bodies get 
incorrectly identified. 

A Master's Thesis discusses many ways to identify objects of knovn forms: 

&• Gugnaft, A- SomC Aapc&t? o i T r^ttcm Recognition by Computer , M, S. Thcaia* 
Electrical Engineering Department, Massachusetts Institute of Technology* 
February 1967. Ale& avsilabl* as a Projoet HAC Technical Report MAC-TR-1", 

Itwillteadvantagcous ttat ue could find the bodies that form a scene, without 
kntrtoinc their exact description (that ia, without having a niyde_l tt \.'..:w't 
SEE is a program that works on * scene presumably conposed of three-dimensional 
rcctxlinooT objects [that la , formed by plane faces] t and analyses th* cccnc 
into a composition of 3-d lm objects. Partially occluded objects are properly 
handled. This program la discussed in: 

7. Guznan, A* Decempogitioa of a Visual__Scene_^ato_B_od_les ^ Memorandum 

MAC-H-557 <AI Xcmo 139); Project MAC, M.I, T, September, 1967. 

8. Guznan, A, Decomposition of a Visual Scene ,into v 7hree-Dimensionai^Bodies. 

AFIPS Froceedir.gs of the 1966 Fall Joint Computer Conference 

Thompson Book Co. Washington, D.C. 

Handling of stereo information (two vievs, left and right, of the some scene), 
improvements tc deal vith nofay (imparf *ce) Input , f Jgure-backgt-ound cHecrlmi- 

nation, etc., vill be found in a doctoral thesis: 

9. Guman, A. frT m P" r » 1 ' ^r^nirion rf ThrPP-uironiiflior^l (lb i rets In a Tlsual Scene, 

Ph. D. Thesis, Electrical Bag. Dept., M. I. T. (end cf 1968 or beginning 1969) 
Will probably appear, too, as a Project HAC Technical Report 



